home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Album: Houko Kuwashima / Digital Photo Album: Houko Kuwashima.iso / trump.dxr / 00010_trumpScript.ls < prev    next >
Encoding:
Text File  |  1998-10-08  |  1.3 KB  |  54 lines
  1. property mysprite, myphoto, mycounter, myside, myhitable
  2. global objlist, objfglist, cardlist
  3.  
  4. on new me, num
  5.   set mysprite to num
  6.   assign(me)
  7.   return me
  8. end
  9.  
  10. on turnupa
  11.   puppetSound("turn.AIF")
  12.   repeat with i = 0 to 45
  13.     set mycounter to mycounter + (PI / 90)
  14.     set the width of sprite mysprite to 66 * abs(sin(mycounter))
  15.     updateStage()
  16.   end repeat
  17.   set the castNum of sprite mysprite to member myphoto
  18.   repeat with i = 0 to 45
  19.     set mycounter to mycounter + (PI / 90)
  20.     set the width of sprite mysprite to 66 * abs(sin(mycounter))
  21.     updateStage()
  22.   end repeat
  23.   set the width of sprite mysprite to 66
  24.   set myside to 1
  25. end
  26.  
  27. on turnupb
  28.   repeat with i = 0 to 45
  29.     set mycounter to mycounter + (PI / 90)
  30.     set the width of sprite mysprite to 66 * abs(sin(mycounter))
  31.     updateStage()
  32.   end repeat
  33.   set the castNum of sprite mysprite to member "cardface"
  34.   repeat with i = 0 to 45
  35.     set mycounter to mycounter + (PI / 90)
  36.     set the width of sprite mysprite to 66 * abs(sin(mycounter))
  37.     updateStage()
  38.   end repeat
  39.   set the width of sprite mysprite to 66
  40.   set myside to 0
  41. end
  42.  
  43. on assign me
  44.   puppetSprite(mysprite, 1)
  45.   set myphoto to getAt(cardlist, mysprite - 4) + 40
  46.   set mycounter to PI / 2
  47.   set myside to 0
  48.   set the castNum of sprite mysprite to member "cardface"
  49. end
  50.  
  51. on remove me
  52.   setAt(objfglist, mysprite - 4, 0)
  53. end
  54.